home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
E-Education
/
(c)ed39.d64
/
menu
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
836b
|
30 lines
10 CLR:POKE53280,0:POKE53281,0:POKE53272,21
20 PRINT"[147][156] WHC ENTERPRISES
25 [153]" GILLIAN'S ENGLISH EXERCISES WAIT"
30 [153]"LISTON (C)ED-39 WAIT "
40 [134]A$(15)
50 [129]A[178]1[164]15:[135]A$(A):[153]"CONT"[201](" "[170][196](A),4);". SYS";A$(A):[130]A
60 [133]"CHOOSE(1-15):";A$
70 A[178][197](A$):[139]A[179]1[176]A[177]15[176]A[179][177][181](A)[167][153]"ONONONON":[137]60
80 [129]X[178]1230[170]40[172]A[164]1229[170]40[172]A[170][195](A$(A)):[151]X,[194](X)[170]128:[151]X[170]54272,3:[130]
90 [129]T[178]1[164]1500:[130]:[153]"LOAD LOADING...... "A$(A)
100 [153]"STOPLOAD"[199](34)A$(A)[199](34)",8:"
110 [151]198,0:[151]631,19:[151]632,131:[151]198,2:[128]
59999 :
60001 [131] "GAME 1 PRACTICE"
60002 [131] "GAME 1 TEST"
60003 [131] "GAME 2 PRACTICE"
60004 [131] "GAME 2 TEST"
60005 [131] "GAME 3 PRACTICE"
60006 [131] "GAME 3 TEST"
60007 [131] "GAME 4 PRACTICE"
60008 [131] "GAME 4 TEST"
60009 [131] "GAME 5 PRACTICE"
60010 [131] "GAME 5 TEST"
60011 [131] "GAME 6 PRACTICE"
60012 [131] "GAME 6 TEST"
60013 [131] "**"
60014 [131] "TEACHER INFO"
60015 [131] "MORE GAMES"
60020 [143] WHC 92:09:08